[Kailon]

Разнесите по двум столбцам. Какая сложность?
Ну если так необходимо, то пусть первые 4 строки будут X, а вторые 4 строки будут Y, тогда:

Код:

  for I := 0 to 3 do
    begin
      X := StrToInt(SG.Cells[0, I]);
      Y := StrToInt(SG.Cells[0, I + 4]);
      Chart1.Series[0].AddXY(X, Y);
    end;

P.S.: из Вашего кода я так и не понял, что должно быть. Сначала цикл до какого-то n, который никак не изменяется. Затем вложенный цикл по столбцам таблицы, хотя нужны строки, с добавлением каких-то координат, которые в свою очередь неизвестны. Дальше в ячейки таблицы присваиваются опять эти неизвестные координаты. Вы понимаете?