Dim dgi As DataGridItem
Dim cb As CheckBox

For Each dgi In DataGrid1.Items
  If dgi.ItemType = ListItemType.Header Then
    cb = dgi.Cells(CHECKBOX_COLUMN_NUMBER).FindControl("CheckBoxID")
    If cb.Checked Then
            
    End If
    Exit For
  End If
Next