Добавьте новый столбец и заполните его возрастающими числами. Тогда фильтр ([столбец] модификация 7 = 0) или что-то как этот (не имеют Excel передо мной для фактической попытки этого);
, Если Вы не можете отфильтровать формулой, добавьте еще один столбец и используйте формулу =MOD ([столбец; 7]) в нем тогда фильтруют нули, и Вы получите все седьмые строки.
procedure TMainForm.Button1Click(Sender: TObject);
var
f: TForm;
begin
f := TChildForm.Create(Self);
f.PopupMode := pmExplicit;
f.PopupParent := Self;
f.Show;
end;
Пока.