Primero lo que tienes que hacer es que a cada checkbox (chkClie,chkProd...) Tienes que ponerlo todos el mismo nombre, al hacer esto, llevará cada control un indice, de ahí que se indexa como te ha dicho David, quedando algo como: Check(0), Check(1)...
Y el código quedaría mas o menos asi.
Código:
Dim I as integer
For I=3 to 8
If DataGrid1.Columns(I).Text = "-1" Then
Form1.check(I-3)=-1
Else
Form1.check(I-3)=0
endif
Next
Saludos