TestVolt = {140,185,230,275,360,395,630};
DistInd = {90,100,115,130,170,190,380};
Data = Partition[Riffle[TestVolt, DistInd],2];
Fit[Data, {1,x,(x^2),(x^3),(x^4)},x]
Eq = %;
Eq /. {x -> 200}
Plot[Eq, {x,0,400}, AxesOrigin-> {0,0}, AxesLabel->{"Zkušební napětí (kV)","Doporučená šířka vrstvy koncové izolace (mm)"}, GridLines->Automatic, PlotLabel -> "Vzdálenost mezi vinutím a magnetickým obvodem jako funkce zkušebního napětí"];
Show[%,ListPlot[Data]]