Dim cb As CheckBox
Dim dgi As DataGridItem


For Each dgi In MyDataGrid.Items
cb = CType(dgi.Cells(0).Controls(1), CheckBox)
If cb.Checked Then
bla bla bla bla bla bla
End If
Next