codice:
Dim contatore As Integer = 0
While contatore < Grid.Rows.Count
    Dim ChkSeleziona As CheckBox = CType(Grid.Rows(contatore).FindControl("chkSelectedItem"), CheckBox)
    ChkSeleziona.Checked = True
    contatore+=1
End While