El problema es que siempre estás modificando la primera fila:
Código:
grdmenu.Row = 1
grdmenu.Col = 0
grdmenu.Text = comunica.Label13
grdmenu.Row = 1
grdmenu.Col = 1
grdmenu.Text = comunica.Label1
grdmenu.Row = 1
grdmenu.Col = 2
grdmenu.Text = comunica.Label2
grdmenu.Row = 1
grdmenu.Col = 3
grdmenu.Text = comunica.Label3
grdmenu.Row = 1
grdmenu.Col = 4
grdmenu.Text = comunica.Label4
grdmenu.Row = 1
grdmenu.Col = 5
grdmenu.Text = comunica.Label5
grdmenu.Row = 1
grdmenu.Col = 6
grdmenu.Text = comunica.Label6
Debes agregar un contador y modificar la línea que ese contador te indique