You can use PeridogramArray, then take the first half of the resulting series. Remove the first two or three values from this series. And make an adjustment to this last series. Try this program :
data1 = Take[PeriodogramArray[data], (Length[data]/2)]
data2 = Drop[data1, 2]
model = LinearModelFit[data2, x, x]
mo = Normal[model]
pente = mo[[2, 1]]