You need to get the six different rows each loop, and the loop count needs to increase by 6 each time:
For i = 0 To dgv.Rows.Count-1 Step 6
Tb1.text = DGV.Item(1, i).Value
Tb2.text = DGV.Item(1, i+1).Value
Tb3.text = DGV.Item(1, i+2).Value
Tb4.text = DGV.Item(1, i+3).Value
Tb5.text = DGV.Item(1, i+4).Value
Tb6.text = DGV.Item(1, i+5).Value
Next i