You could do it like this
Dim s As String = ""
For Each x As DataGridViewRow In Me.DataGridView1.Rows
s += x.Cells(0).Value + Environment.NewLine
Next
Me.TextBox1.Text = s
Note that TextBox1 has Multiline set to true - if not using multiline then remove the
+ Environment.NewLine