El código sería el siguiente:
Dim i As Integer
For i = 0 To DataGridView1.SelectedRows.Count – 1
DataGridView1.SelectedRows(i).Cells(0).Value = “prueba”
Next
For i = 0 To DataGridView1.SelectedRows.Count – 1
DataGridView1.SelectedRows(i).Cells(0).Value = “prueba”
Next